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PREFACE 


This publication is intended for use 
as a planning aid by systems analysts and 
programmers who will be using the fifth 
version of the F Compiler when it becomes 
available. It is designed for the reader 
who already has a knowledge of the language 
and who requires an additional source of 
reference for planning purposes. 


The book contains four sections related 
to the four major areas of improvement 
in the compiler: Section 1 describes 
functional additions (and therefore 
contains most of the language changes and 
additions implemented by the new version 
of the compiler); Section 2 describes 
improvements in performance and 
optimization; Section 3 details 
improvements in the use of storage; Section 
4 describes other improvements in the 
usability of the compiler. Additional 
information, including compatibility with 
previous versions of the compiler, and 
system requirements, is given in Appendixes 
A and B; and Appendix C provides an 
alphabetical list of changed language 
features related to topics covered in the 
text. 
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1820-0360, for the editions that are applicable and current. 
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To make full use of this publication, 
the reader must have the following: 


IBM System/360 PL/I Reference Manual, 
Form C28-8201. 


For additional information necessary 
to compile, link-edit, and execute a 
program, the reader should refer to the 
following publication: 


IBM System/360 Operating System: PL/I (F) 
Programmer's Guide, Form С28-6594. 
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The following publications contain 
other information that will be valuable 
to users intending to take advantage of 
the teleprocessing support implemented 
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2003 
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GROUPS SELECTED 


BY OPTIONS 


Functional additions for the fifth 
version of the F Compiler consist of the 
following: teleprocessing support by means 
of TRANSIENT files; two new string built- 
in functions (TRANSLATE and VERIFY); two 
new optimization options, ORDER and 
REORDER; and the adoption of System/360 
halfword binary facilities for fixed 
binary. variables of precision less than 
16. 


 TELEPROCESSING SUPPORT 


This subsection describes the new 
teleprocessing features of PL/I (i.e., 
the TRANSIENT file attribute and the 
PENDING condition) together with the 
associated teleprocessing format options 
of the ENVIRONMENT attribute. A simple 
programming example is given at the end 
of the subsection to illustrate the inter- 

relationship of the new features. 


INTRODUCTION 


The TRANSIENT attribute and an 
associated ON-condition, PENDING, have 
been introduced into the language to allow 
teleprocessing applications programs to 
be written in PL/I. The fifth version 
of the F Compiler provides a communicating 
link between PL/I message processing 
programs using these features and the 
QTAM (Queued Telecommunications Access 
Method) facilities of the operating system. 


The user must provide a QTAM message 
control program (MCP) suitable for the 
particular installation; QTAM macros can 
be used for this purpose. The message 
control program handles messages 
originating from and destined for a number 
of remote terminals, each of which is 
identified by a terminal name carried 
with the message.  Thése messages are 
transmitted to and from the PL/I message 
processing program via queues in main 
storage. (These queues are supported by 
corresponding intermediate queues in a 
disk data set. The PL/I program has 
access only to the main storage queues, 
by means of a single intermediate buffer 
for each file.) The exact message format 
depends on the MCP, but each message will 
carry the terminal name with it. 
пау be a complete unit, or may consist 


A message 
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of a number of records so that it can be 
split up for processing; the ENVIRONMENT 
attribute is used to inform the compiler 

of the message format. The PL/I programmer 
must have this message format information 
to enable him to write the message 
processing program. 


The PL/I features are simply an 
extension of the existing record-oriented 
input/output facilities of the language. 
The "data set" associated with each 
TRANSIENT file 15 in fact an input or 
Output message queue set up by the МСР. 

A READ statement for the file will take 
the next message (or the next record from 
the current message) from the associated 
queue, assign the data part to the variable 
named in the INTO option (or set a pointer 
to point to the data in the buffer), and 
save the terminal name by assigning it 

to the variable named in the KEYTO option. 
(The PENDING condition is raised if the 
input queue is empty when the READ 
Statement is executed.) А WRITE or LOCATE 
Statement will transmit the processed 
message or record to the output queue, 
using the element expression specified 

in the KEYFROM option to identify the 
destination terminal. 


LANGUAGE ADDITIONS 


The teleprocessing extension to the 
language comprises the TRANSIENT attribute, 
which is an alternative to DIRECT and 
SEQUENTIAL, and the PENDING condition. 

Some of the rules for input/output 
Statements are altered to accommodate the 
TRANSIENT attribute. In addition, the 
fifth version of the compiler requires 

a teleprocessing format option to be 
specified in the ENVIRONMENT attribute. 


The TRANSIENT Attribute 


The TRANSIENT attribute indicates that 
the contents of the data set associated 
with the file are re-established each 
time the data set is accessed. In effect, 
this means that records can be continually 
added to the data set by one program 
during the execution of another program 
that continually removes records from the 
data set. Thus the data set can be 
considered to be a continuous queue through 
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which the records pass іп transit between 
the message control program and the message 
processing pxogram. 


The data set associated with a TRANSIENT 
file differs from those associated with 
DIRECT and SEQUENTIAL files in that its 
contents are dynamic; reading a record 
removes it from the data set. Such a data 
set can never be created or accessed by 
a DIRECT or SEQUENTIAL file. 


The use of TRANSIENT files is almost 
totally dependent on the implementation; 
for this reason, a list of rules for the 
use of TRANSXENT with the F Compiler is 
given below the general format. 


General format: 
DIRECT|SEQUENTIAL|TRANSIENT 


The following rules apply specifically 
to the use of TRANSIENT with the Е 
Compiler: 


1. The TRANSIENT attribute can be specified 
only for RECORD KEYED BUFFERED files 
with either the INPUT or the OUTPUT 
attribute. 


2. The ENVIRONMENT attribute with one of 
the two teleprocessing format options 
(G and R) must be declared for TRANSIENT 
files. 


3. Input can be specified only by a READ 
Statement with the KEYTO option and 
either the INTO option or the SET 
option. 


ц. Output сап be specified only Бу a WRITE 
statement or a LOCATE statement, either 
of which must have the KEYFROM option. 


5. The EVENT option is not permitted, 
Since TRANSIENT files are always 
BUFFERED. 


6. The "data set" associated with a 
TRANSIENT file is in fact a queue of 
messages maintained automatically in 
main storage by a separate message 
control program using the ОТАМ (Queued 
Telecommunications Access Method) 
facilities of the operating system. 
The queue is always accessed 
sequentially. 


7. The name or title of a TRANSIENT INPUT 
file must be the name of a recognized 
queue set up by the message control 
program. For TRANSIENT OUTPUT files, 
any name can be declared, since the 
file is re-associated for each output 
operation with a queue determined by 
the terminal name. 


8. The element expression specified in 
the KEYFROM option must have as its 
value a recognized terminal 
identification. 


The PENDING Condition 


General Format: PENDING (file-name) 
Description: Except when signaled, the 
PENDING condition can be raised only 
during execution of a READ statement for 
a TRANSIENT file. It is raised when ап 
attempt is made to read a record that is 
temporarily unavailable (1.е., for the 
F Compiler, when the message queue 
associated with the file contains no 
messages at the time the READ statement 
is executed). 


Standard System Action: In the absence 


of an on-unit, the action is as described 
for normal return. 


Normal Return: Upon the normal completion 
of the on-unit for this condition, control 
returns to the point of interrupt (unless 
the condition was signaled), where 
execution is suspended until an appropriate 
record becomes available. If the condition 
was signaled, execution continues with 

the statement immediately following the 
SIGNAL statement that caused the interrupt. 


Note: The value of the ONKEY built-in 
function when the PENDING condition 
is raised is a null string. 


NEW ENVIRONMENT OPTIONS (G AND R) 


Two new options of the ENVIRONMENT 
attribute are associated with the 
teleprocessing extension. These are: 


G(maximum-message-size) 
R(maximum-record-size) 


One of these options must be specified 
for TRANSIENT files; they cannot be 
Specified for DIRECT, SEQUENTIAL, or 
STREAM files; and they cannot appear in 
conjunction with any other option of the 
ENVIRONMENT attribute. 


The maximum message size and maximum 
record size are specified by decimal 
integer constants. 


G(maximum-message-size) specifies that 
execution of an input/output statement 


will result іп the movement of a complete 
message to or from the message queue. 


R(maximum-record-size) specifies that 
execution of an input/output statement 
will result in the movement of one record 
of a message to or from the message queue. 


For both G and R formats, a buffer is 
always used, and its length will depend 
on the value of the specified decimal 
integer constant. The value that must 
be specified will depend on the message 
format as set up by the separate message 
control program. The PL/I programmer 
must have details of the message format 
in order to write a message processing 
program. In general, the messages and 
records. are treated as if they were V- 
format records. 


SPECIAL REQUIREMENTS 


Execution of a program using TRANSIENT 
files will require that the user's 
generated system contains QTAM modules, 
and that a QTAM MCP (Message Control 
Program) is provided by the user. 


QTAM Message Control Program 


А ОТАМ message control program is 
required to direct incoming and outgoing 
messages to and from the main storage 
queues via a message data set on disk 
Storage. Simple QTAM MCP macros are 
available to aid the user in generating 
the message control program. 


Termination of the Teleprocessing System 


In order to terminate the message 
control program, and thus the 
teleprocessing system, it is necessary 
to write an assembly language message 
processing program that will perform the 
following functions: 


1. Make sure that all of the other 
processing programs in the system have 
either closed their QTAM data sets or 
that they are about to do so. One 
method could be to send to all the 
input queues a message which could be 
recognized by the processing programs 
as a message asking them to close the 
data sets. 


2. Issue a QTAM CLOSEMC macro-instruction 
to terminate the entire system. (This 
macro-instruction passes control to 
OTAM termination routines.) It is not 
possible to issue this macro in PL/I 
processing programs, since it causes 
the execution of a program to be delayed 
until all other users of the QTAM data 
sets have closed them. 


3. Return. 


The action of the Q1AM termination 
routines when given control by CLOSEMC 
is as follows: 


1. The message control program will 
continue to receive the message 
currently being transmitted, but it 
will poll no further terminals after 
this transmission is complete. 


2. As each terminal stops transmitting 
messages, the MCP will start sending 
messages waiting in the output queues. 
As the incoming traffic declines to 
nothing, the outgoing traffic continues 
until all outstanding messages have 
been sent. 


3. Once the traffic has ceased, a check 
is made to ensure that all the QTAM 
data sets opened in the various message 
processing programs have been closed. 


ц. Finally, the entire system is terminated 
by closing all its lines and queue 
data sets. 


Reactivation of the Teleprocessing System 


The system is reactivated by executing 
the message control program in the normal 
way. All the processing programs could 
be started as required. Any messages 
that were still in the input queues when 
the system was terminated will still be 
available to the processing programs. 
Further information can be found in the 


publications IBM System/360 Operating 
System:  QTAM Message Processing Services, 
Form C30-2003, and IBM System/360 Operating 


System : QTAM Message Control Program, 
Form C30-2005. 


PROGRAMMING EXAMPLE 


The programming example in Figure 1 
is designed to illustrate that the PL/I 
teleprocessing extension is a simple 
extension of the existing record-oriented 
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/* AN INQUIRY HANDLING PROGRAM %/ 


1 CLOCK: PROCEDURE OPTIONS (MAIN); 
2 DECLARE (IN,OUT) FILE TRANSIENT KEYED ЕМУ (G(50)); 
3 DECLARE (INPUT MESSAGE, TERMINAL) CHAR (50) VARYING; 
/* SET UP PENDING ON UNIT */ 
4 ON PENDING (IN) DISPLAY ("CLOCK ROUTINE WAITING FOR WORK‘ ); 
5 GET_MESSAGE: READ FILE (IN) INTO (INPUT_MESSAGE) KEYTO (TERMINAL) ; 
/* IS ІТ END OF SESSION ? */ 
6 IF INDEX(INPUT MESSAGE, 'END') у= 0 
7 THEN RETURN; 
/% VALIDATE INPUT */ 
8 IF VERIFY(INPUT MESSAGE,'TD ") у= 0 
9 THEN CALL ERROR(INPUT MESSAGE, TERMINAL) ; 
/% NOW DETERMINE WHETHER TIME OR DATE 
IS REQUIRED */ 
10 IF INDEX(INPUT MESSAGE,'T') 4= 0 
11 THEN CALL TIME ROUTINE(TERMINAL); 
12 ELSE CALL DATE ROUTINE(TERMINAL); 
13 GO TO GET MESSAGE; 


/% SUBROUTINE TO RETURN RESPONSE */ 


14 TIME ROUTINE: PROCEDURE (TERM); 
15 DECLARE (MSG,TERM) CHAR (50) VARYING; 


/* INVOKE PL/I BUILT IN FUNCTION TIME */ 


16 MSG - TIME; 
17 GO TO WRITE MESSAGE; 
18 DATE ROUTINE: ENTRY (TERM); 


/% INVOKE PL/I BUILT IN FUNCTION DATE */ 


19 MSG - DATE; 
20 WRITE MESSAGE: WRITE FILE (OUT) ‘FROM (MSG) KEYFROM (TERM); 
21 END TIME ROUTINE; 


/* ERROR SUBROUTINE */ 


22 ERROR: PROCEDURE (MSG,TERM); 
23 DECLARE (MSG,TERM) CHAR (50) VARYING; 
24 DECLARE REPLY CHAR (23) INITIAL 
(*YOUR MESSAGE IS INVALID'); 


/* THIS ROUTINE LOGS THE ERROR AT THE SYSTEM 
CONSOLE AND INFORMS THE TERMINAL USER OF 


THE ERROR */ 
25 DISPLAY ("BAD MESSAGE ''' ||м5с|| ''' FROM TERMINAL '||TERM); 
26 WRITE FILE (OUT) FROM (REPLY) KEYFROM (TERM); 
21 GO TO GET MESSAGE; 


28 END ERROR; 


29 END CLOCK; 


Figure 1. Teleprocessing Programming Example 


transmission facilities, rather than to 
represent a typical user's message 
processing program. 


The program in the example handles two 
types of message. The format of the 
messages is a single character, 'D' or 
'T' surrounded by blanks. The 'D' 
character causes the date to be returned 
to the inquiring terminal, and 'T' causes 
the time to be returned. Any other 
character is an error. Note that the DD 
Statements for the files IN and OUT would 
be DD DUMMY statements. 


In the example, each inquiry is fully 
Serviced before control returns to 
GET MESSAGE to obtain the next message. 
Response could be greatly improved in an 
MVT system by use of the multitasking 
facilities of PL/I. ТЕ the routines 
DATE ROUTINE, TIME ROUTINE, and ERROR 
were invoked as subtasks of CLOCK, control 
would return to GET MESSAGE as soon as 
the appropriate handling routine had been 
invoked, rather than after it had finished. 


STRING-HANDLING ADDITIONS 


Two new string built-in functions are 
implemented. These are the TRANSLATE and 
VERIFY built-in functions. 


TRANSLATE returns a translation of a 
given string to the point of reference 
according to a translation table defined 
by two other strings. One example of its 
use is to enable items specified in 
character sets other than EBCDIC to be 
read in, translated into internal notation, 
and processed by the PL/I application 
program. Retranslation into character 
sets other than EBCDIC can be performed 
on output. 


The VERIFY function verifies that each 
character or bit in a given source string 
is represented in a given verification 
String; in other words, it tests the 
validity of each character or bit according 
to user-specified criteria. 


Ihe TRANSLATE String Built-in Function 


Definition: TRANSLATE returns the 
translated value of a specified string 
to the point of invocation. The 
translation is performed in accordance 
with a translation table supplied in the 
form of two arguments to the function. 





Reference:  TRANSLATE(s,rí,pl) 
Arguments: The argument "s" represents 


the source string, i.e., the string that 
supplies the value to be translated. 
Arguments "r" and "p" represent the 
replacement and position strings 
respectively; these strings correspond 
to each other to provide the translation 
table. If "p" is not specified, an 
implementation-defined character string 
is provided; for the F Compiler, this 
string consists of the 256 possible EBCDIC 
characters arranged in ascending order 
(i.e., from hexadecimal 00 through FF). 


If any argument is arithmetic, it is 
converted to string (a character string 
if the argument is DECIMAL, or a bit 
String if tne argument is BINARY). If, 
after any arithmetic-to-string conversion 
has been performed, all arguments are bit 
Strings, no further conversion takes 
place; otherwise, bit-string arguments 
are converted to character strings. If 
"r" is shorter than "p," it is padded on 
the right (with blanks or zeros, depending 
on the string type) to the length of "p." 


Result: The value returned by this 
function is a string identical in length 
and value to the source string "s," except 
that if any character/bit position of "s" 
contains a character or bit that has been 
Specified for replacement (by inclusion  . 
of that value in the position string "p"), 
that value will be replaced by the 
corresponding value from the replacement 
String "r." The correspondence is by 
position: character/bit positions 1,2,3, 
-.. п of "p" correspond respectively to 
character/bit positions 1,2,3, ... n of 
"r." 


Example: 


DECLARE (S,T) CHAR(10), 
(Рр, К) CHAR(3); 


P-',.$'; 
R-'.,D'; 

A: GET DATA(S); 
T-TRANSLATE (S,R,P); 
PUT DATA(T); 

GO TO A; 


The above sequence reads in data from 
SYSIN, translates commas to periods, 
periods to commas, and dollar signs to 
the character 'D', and writes out the 
result on SYSPRINT. Thus, if the string 
S='$12,345.50' were read in, the string 
T='D12.345,50' would be written out. 
(For the F Compiler, precisely the same 
result could be achieved by omitting P 
altogether and making R consist of the 
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EBCDIC sequence except for the replacement 
of the comma, period, and dollar-sign 
characters by the period, comma, and 'D' 
characters respectively.) 


Note: Use of this function will in many 
cases result in tne in-line use of the 
TR machine instruction. 


The VERIFY String Built-in Function 


Definition: VERIFY examines two given 
strings to verify that each character or 
bit in the first string is represented 

in the second string, returning a fixed 
binary value of 0 if this is the case; 
otnerwise, the value returned is the index 
of the first character (in the first 
String) that is not represented in the 
second string. 


Reference:  VERIFY(expr-1,expr-2) 
Arguments: Тһе arguments "ехрг- 1" and 


"expr-2" represent the source and 
verification strings respectively. If 
either argument is arithmetic, it is 
converted to string (a character string 
if the argument is DECIMAL, or a bit 
string if the argument is BINARY). If, 
after any arithmetic-to-string conversion 
has been performed, both arguments are 
bit strings, no further conversion takes 
place; otherwise, the bit-string argument 
is converted to a character string. 


Result: The value returned by this 
function is a fixed binary integer of 
default precision ((15,0) for the F 
Compiler), determined as follows: 


Each character or bit, c, of the source 
String is examined to see if it is 
represented anywhere in the verification 
String, і.е., to determine if 


INDEX(expr-2,c)4-70 


The characters or bits of the source 
String are examined from left to right. 
If an examined character or bit is not 
represented in the verification string, 
the index of that character or bit in the 
source string is returned. If each 
character or bit in the source string is 
represented in the verification string, 
the returned value is zero. 


Example: Assume that B is a character 
string of length 48, containing the 48 
characters permitted in the 48-character 
set. The expression 


VERIFY (A, B) 


10 


will then return a value of zero for any 
value of A that consists solely of 
characters from the 48-character set, but 
will index the first character in a value 
Of А that does not conform to the 48 
character set (e.g., if A = "Р GT X', the 
returned value is zero; if A = 'P > X', 
the returned value is 3). 


Note: Use of this function will in many 
cases result in the in-line use of the 
TRT machine instruction. 


OPTIMIZATION EXTENSIONS 


The NORMAL, ABNORMAL, USES, and SETS 
attributes have been removed from the 
PL/I language, and these keywords will 
no longer be accepted by the F Compiler. 
(Previous versions of the compiler accepted 
the keywords without acting on them. For 
details of the effect on compatibility, 
see Appendix А of this publication.) Two 
new options (ORDER and REORDER) for 
PROCEDURE and BEGIN statements have been 
added, and are implemented in the fifth 
version of the compiler. This subsection 
describes these options in terms of the 
PL/I language, since they stipulate the 
rules that any compiler must observe 
during optimization. The way in which 
the F Compiler ensures that these rules 
are observed is discussed in Section 2, 
"Performance Improvements and 
Optimization." The REDUCIBLE and 
IRREDUCIBLE attributes are retained in 
the language, and the F Compiler will 
continue to accept them without taking 
action. 


INTRODUCTION 


Strictly speaking, the order in which 
the statements of a PL/I source program 
are to be executed is specified by the 
order in which they appear in the source 
program, even if the code could be 
reordered so as to produce the same result 
more efficiently. The order of execution 
is normally sequential except where 
modified by a control statement such as 
GO TO. 


The programmer can vary the degree of 
language stringency imposed on the compiler 
by using the ORDER and REORDER options 
on the PROCEDURE and BEGIN statements. 
REORDER specifies a partial relaxation 
of the rules to allow the compiler more 
freedom in optimization. Whether the F 


Compiler takes advantage of this relaxation 
(described in more detail below) depends 

on other factors than the option specified. 
Firstly, it will not try to optimize code 
unless it is obviously safe to do so; 
secondly, optimization of object code 
generally means an increase in compilation 
time, and so provision is made for the 
user to prevent the compiler from 
introducing the necessary extra phases. 
These two factors are discussed in more 
detail in Section 2, "Performance 
Improvements and Optimization." 


LANGUAGE ADDITIONS 


The syntax of the PROCEDURE and BEGIN 
Statements is changed to allow the 
inclusion of the keyword ORDER or.the 
keyword REORDER. The general format of 
the PROCEDURE statement will be as follows: 


entry-name:  [entry-name:l... 
PROCEDURE((parameterí[,parameter]l...)] 
[OPTIONS (option-list)] 
[RECURSIVE] (RETURNS (attribute...)] 
[ORDER| REORDER]; 


A similar cnange is made to the general 
format of the BEGIN statement. (The 
inclusion of the RETURNS keyword in the 
PROCEDURE statement is another language 
change and is discussed in Appendix A, 
"Compatibility with Previous Versions"). 


ORDER and REORDER specify, for 
Optimization purposes, the degree of 
language stringency to be observed during 
compilation of the block. The strict 
rules require that the source program 
should be compiled so as to be executed 
in the order specified by the sequence 
of the statements in the source program, 
even if the code could be reordered so 
as to produce the same result more 
efficiently. The relaxation allowed by 
REORDER is such that if computational or 
System action interrupts occur during 
execution of the block, the result is not 
necessarily the same as it would be under 
the strict rules. 


The selected option applies to all 
nested blocks unless overridden; if neither 
Option is specified, the option that 
applies to the containing block will be 
assumed. If the block is an external 
procedure, it will be assumed to have the 
ORDER option unless REORDER is explicitly 
Specified. 


The ORDER Option 


The ORDER option specifies that the 
normal language rules are not to be 
relaxed; i.e., any optimization must be 
such that the execution of a block always 
produces a result that is in accordance 
with the strict definition of PL/I. This 
means that the values of variables set 
by execution of all statements orior to 
computational or system action interrupts 
are guaranteed in an on-unit entered as 
a result of the interrupt, or anywhere 
in the program afterwards. Note that the 
Strict definition now allows the compiler 
to optimize common expressions (see note 
below), where safely possible, by 
evaluating them once only and saving the 
resulc, ratner than re-evaluating for 
each reference. Consequently, object 
programs produced by the fifth version 
of the compiler may differ from those 
produced by the fourth version in respect 
of the number of computational or system 
action conditions raised during execution. 


Note: A common expression is an expression 
that occurs more than once in a program 
but is obviously intended to result 
in the same value each time that it 
is evaluated, i.e., if a later 
expression is identical to an earlier 
expression, with no intervening 
modification to any operand, the 
expressions are said to be common. 


The REORDER Option 


The REORDER option specifies that 
execution of the block must produce a 
result that is in accordance with the 
Strict definition of PL/I unless a 
computational or system action interrupt 
occurs during execution of the block; the 
result is then allowed to deviate as 
follows: 


1. After a computational or system action 
interrupt has occurred during execution 
of the block, the values of variables 
modified, allocated, or freed in the 
block are guaranteed only after normal 
return from an on-unit or when access2d 
by the ONCHAR and ONSOURCE condition 
built-in functions. 


2. The values of variables modified, 
allocated, or freed in an on-unit for 
a computational or system action 
condition (or in a block activated by 
such an on-unit) are not guaranteed 
on return from the on-unit into the 
block, except for values modified by 
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the ONCHAR and ONSOURCE pseudo 
variables. 


A program is in error if a computational 
or system action interrupt occurs during 
the execution of tne block and this 
interrupt is followed by a reference to 
a variable whose value is not guaranteed 
in such circumstances. 


ADOPTION OF HALFWORD BINARY FACILITIES 


Witn previous versions of the compiler, 
fixed binary variables of any precision 
were always mapped as fullwords (requiring 
four bytes of storage). The fifth version 
of the compiler will map fixed binary 
variables of precision less than 16 as 
halfwords (requiring only two bytes of 
storage), and will use System/360 halfword 
instructions to process them. Note that 
variables of default precision will be 
mapped as halfwords. This subsection 
describes the effect of this change on 
Storage, data interchange, and 
compatibility. 


The change does not apply to fixed 
binary constants or fixed binary 
intermediate targets (i.e., compiler 
created temporaries for holding 
intermediate results of operations). 
These will continue to occupy fullwords. 


Effect on Storage 


The total amount of main storage апа 
*external storage required at execution 

time by fixed binary variables of precision 
less than 16 will be halved; this includes 
Storage for arrays and elements of 
structures. 
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Effect on Data Interchange 


Communication between PL/I and other 
languages is improved: the feature permits 
easier data interchange between programs 
written in PL/I and those written in COBOL 
and FORTRAN. (Use of the COBOL option in 
the ENVIRONMENT atrribute allows data 
interchange with COBOL programs; use of 
the UNALIGNED attribute in conjunction 
with VS- or VBS-format records allows 
data interchange with FORTRAN programs.) 


Compatibility 


This change will affect compatibility 
with programs written for previous versions 
of the compiler only in relation to the 
following: 


1. External fixed binary variables 
2. Fixed binary arguments and parameters 


3. Variables defined on external fixed 
binary variables 


ц. Fixed binary variables used in record- 
oriented transmission 


5. Based fixed binary variables. 


Full details of circumstances in which 
such incompatibilities could arise and 
methods of avoiding them are given in 
Appendix A of this publication. 


Relaxation of REFER Option Restriction 


The restriction on the two variables 
in the REFER option of the BASED attribute 
has been eased to permit fixed binary 
integer variables of the same precision 
as each other. This will allow the user 
the choice of either continuing to use 
fullword binary or using halfword binary 
for the controlling fields in self-defining 
structures. 


INTRODUCTION 


This section gives details of the 
improvements that can be expected in the 
execution speed of object programs produced 
by the fifth version of the F compiler 
compared with the speed of those produced 
by the fourth version. The degree of 
object program optimization attempted by 
the compiler depends on the PL/I block 
options ORDER and REORDER, and on the 
compiler option OPT. The descriptions 
of the specific areas of improvement that 
follow this introduction indicate the 
block and compiler options that should 
be specified in order to obtain the 
benefits of each feature; they also include 
estimates of the local performance 
improvement in each case. 


Where it is indicated that optimization 
will be effected for both ORDER and 
REORDER, it is probable tnat specification 
of REORDER will result in the greater 
degree of optimization. However, even 
where REORDER is stated to be necessary 
for a particular type of optimization to 
occur, there will usually be some 
optimization when ORDER is specified. 

For the fifth version of the F Compiler, 
the option OPT can be specified with one 
of three values: 


OPT-0 requests fast compilation and, 
as a secondary consideration, 
reduction of the storage space 
required by the object program 
at the expense of execution time. 
OPT-1 requests fast compilation and, 
as a secondary consideration, 
reduction of object program 
execution time at the expense 
of storage space. 
OPT-2 requests reduction of object 
program execution time at the 
expense of compilation time. 


Note that the new optimization phases of 
the compiler will be invoked only when 
OPT-2 is specified. The resultant 
degradation in compilation time has 

been estimated to be not greater than 

22 percent when 88K bytes of storage 

are available for the compilation. 


The performance improvement figures 


2. PERFORMANCE IMPROVEMENTS AND OPTIMIZATION 


of all programs and is given for guidance 
only. 


It is not possible to quote a specific 
overall percentage improvement figure since 
individual programs will vary considerably. 
Estimates indicate an execution speed improve 
ment ratio in the range 1:1 to 2.6:1. 


LOOP AND SUBSCRIPT OPTIMIZATION 
LOOP CONTROL MECHANISM 


The mechanism of loop control will be 
simplified wherever possible. In particular, 
BXLE or BXH machine instructions will be 
generated rather than the present five- 
instruction sequence. 


Block option:  ORDER/REORDER 


Optimization level: 


Local performance improvement: between 
2 to 1 and 3 to 1. 


OPT-2 


LOOP CONTROL VARIABLES 


The use of control variablés as 
subscripts will be optimized. | 


Block option: REORDER 


Optimization level: 
Local performance improvement: between 


2 to l and n to 1 for addressing code, 
where n - number of times the control 
variàble appears in subscript expressions. 


OPT-2 


ARRAY EXPRESSIONS 


A combination of the techniques used 
for optimization of loop control mechanisms 
and control variables will be employed. 


Block option:  ORDER/REORDER 


Optimization level:  OPT-2 


jiven below are average local improvements; 
this data is not necessarily representative 
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Local performance improvement: between 
2 to 1 and n to 1, where n - number of 


arrays in the expression. 


SUBSCRIPT LISTS 


Identical expressions that will 
represent the same value will be replaced 
by temporary variables to which the value 
will be assigned. Expressions whose 
values will not change will be moved out 
of loops. 


Block option: REORDER 
Optimization level: OPT-2 


Local performance improvement: n to 1, 
where n - number of common subscript 


expressions. 


ADDITIONAL IN-LINE CONVERSIONS 


In addition to those data conversions 
for which in-line code is generated by 
the third and fourth versions of the F 
Compiler, in-line code will be generated 
for certain cases of conversion between 
the following data types: 


Numeric character to FIXED BINARY 
FIXED BINARY to numeric character 
Numeric character to FIXED DECIMAL 
FIXED DECIMAL to numeric character 
In-line code will be generated for 
these conversions where the picture 
specification comprises a string of 9s 
and includes an implied decimal point 
(e.g., '99V9*). The picture specification 
may also include editing characters 
preceding the 9s (e.g., "555999у99"), or 
embedded periods (e.g., "99.99у9.9"). 
Block option: ORDER/REORDER 
Optimization level: OPT-0, OPT-1, or OPT-2 


Local performance improvement: beween 5 
to 1 and 11 to 1. 


IMPROVED CODE FOR ASSIGNMENTS 


Optimized code that does not use 
temporary storage will be produced in the 
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following cases when FIXEDOVERFLOW and 
SIZE are disabled or cannot be raised, 
and when the operands are of suitable 
scale and precision: 


1. Simple fixed-decimal assignments (for 
example, А-А + constant; X - A + В; 
X=A * B + C3). 


2. Simple expressions and assignments 
that involve only character-string 
variables and character-string constants 
(for example, X = А||В;). 


3. Assignments between temporary variables 
such as occur in some subroutine or 
function references. 


Block option: ORDER/REORDER 


Optimization level: OPT=0, OPT=1, or OPT=2 


Local performance improvement: between 
2 to 1 and 3 to 1. 


IMPROVED REGISTER USAGE 


Improvements in the register-allocation 
stage of the compiler can result in better 
use of registers during execution of the 
object program, thereby eliminating some 
intermediate store and load instructions. 


Block option: ORDER/REORDER 


Optimization level: OPT-2 


Local performance improvement: 1.25 to 
1 when applicable. 


IMPROVED CODE FOR MATHEMATICAL BUILT-IN 
FUNCTIONS 


The mathematical built-in functions 
have been recoded to use new algorithms 
and to exploit recent changes in the 
floating-point hardware. 


Block option: ORDER/REORDER 

Optimization level: OPT-0, OPT-1, or OPT-2 
Performance improvement: increased 
accuracy of results of many mathematical 


built-in functions, and shorter execution 
time for some functions. 


In general the fifth version of the 
PL/I(F) Compiler will not create programs 
differing significantly in their use of 
core storage from those created by the 
fourth version. There are however two 
areas where considerable gains can be 
made through using the fifth version. 
These items are the adoption of halfword 
binary storage and the creation of a 
Single PL/I library that can be used 
concurrently by PL/I programs executed 
in an MVT environment. As use of both of 
these items is highly program dependent, 
a general statement cannot be made on the 
overall impact on the use of storage. 


HALFWORD BINARY FACILITIES 


The halfword binary facilities are 
already descibed in Section 1 under the 
heading "Adoption of Halfword Binary 
Facilities." 


SHARED LIBRARY 


This feature permits the selective 

building of a ‘shareable’ PL/I Library 

by means of the PL1LIB System Generation 
macro-instruction. This library can then 
be made resident in the LINKPACK area of 
the Operating System/360 (MVT Option only) 
at the time of Initial Program Load (ІРІ). 
The library can then be accessed from one 
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or more regions concurrently through a 
communications routine link-edited with 
the user program. PL/I Library routines 
not built into the 'shareable' library 
will be automatically link-edited into 
the user's load module. Execution of a 
load module requiring the shared library 
will proceed normally even if the shared 
library was not made resident at IPL-time. 
In this case the shared library will be 
loaded dynamically at the start of 
execution into the user region or partition 
on MVT or MFT, or into the user program 
area in PCP. 


Table 1 shows the 35 groups that a 
user can select for inclusion in his 
resident PL/I library, and the System 
Generation options required to obtain 
them. The 35 groups make up 8 "packages" 
covering Housekeeping functions, 
Conversions, String Functions, Array 
Functions, Arithmetic Functions (ADD, 
MIN, MULTIPLY, etc.), Mathematical 
Functions (SIN, COS, SQRT, etc.), STREAM 
Input/Output, and RECORD Input/Output. 


The breakdown of the PL/I Library into 
groups by modules within package is given 
in Tables 2 through 9. It should be noted 
that some modules appear in several groups 
within a package; selection of these 
groups will cause the inclusion of only 
a single copy of any one module. Group 
1 (the non-shareable modules) is the only 
group that spans more than a single 
package. Іп addition, each PL/I library 
module appears in only one package. 
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Table 1. 


1 
2 
3 
4 
5 
6 
7 
8 
9 
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Shared Library Feature - Module Groups Selected by Options іп SYSGEN PLILIB Macro 





Main Functions of the Group 


' Non-shared modules 


Multi-tasking storage management 
Non-tasking storage management 
Error handler (ON-units) 

List processing and structure mapping 
Basic conversion package 

Edit conversions 

Complex conversions 

Bit string conversions 

Character string conversions 
Picture conversions 

Sterling conversions 
Optimization=1 special conversions 
Bit string functions 

Character string functions 
'STRING' b-i-f and PV 

Real non-interleaved arrays 

Real interleaved arrays 

Complex non-interleaved arrays 
Complex interleaved arrays 

Real arithmetic operators 

Complex arithmetic operators 

Real short arithmetic functions 
Real long arithmetic functions 
Complex short arithmetic functions 
Complex long arithmetic functions 
Non-tasking data-directed I/O 
Non-tasking list-directed І/О 
Non-tasking edit-directed І/О 
Multi-tasking data-directed І/О 
Multi-tasking list-directed I/O 
Multi-tasking edit-directed І/О 
Non-tasking record І/О 
Multi-tasking record I/O 
Non-tasking record І/О wait 
Multi-tasking record I/O wait 





PL1ILIB SYSGEN Options 
to Select Group 


Modules not sharable 


MODES=TASK 
MODES=NOTK 


MODES=REAL 


MODES=CMPX 


MODES=REAL 
MODES=REAL 
MODES=CMPX 
MODES=CMPX 
MODES=REAL 
MODES=CMPX 
MODES=REAL 
MODES=REAL 
MODES=CMPX 
MODES=CMPX 
MODES=NOTK 
MODES=NOTK 
MODES=NOTK 
MODES=TASK 
MODES=TASK 
MODES=TASK 
MODES=NOTK 
MODES=TASK 
MODES=NOTK 
MODES=TASK 


STORG=BASIC 
STORG=BASIC 
STORG=ERR 


.STORG=LISTP 


CONVS=BASIC 
CONVS=EDIT 
CONVS=BASIC 
CONVS=BIT 

CONVS=CHAR 
CONVS=PICT 
CONVS=STERL 
CONVS=OPT 1 

STRGS=BIT 

STRGS=CHAR 
STRGS=STR 

ARRAY=BASIC 
ARRAY=LEAF 

ARRAY=BASIC 
ARRAY=LEAF 

MATHS=BASIC 
MATHS=BASIC 
MATHS=SHORT 
MATHS=LONG 
MATHS=SHORT 
MATHS=LONG 
STRIO=DATA 
STRIO=LIST 
STRIO=EDIT 
STRIO=DATA 
STRIO=LIST 
STRIO=EDIT 

RECIO=BASIC 
RECIO=BASIC 
RECIO=WAIT 

RECIO=WAIT 





The group sizes given above are rounded up to the nearest 100 bytes. 
The non-shared modules (Group 1) comprise those modules from the 
Housekeeping, String Function, and STREAM I/O Packages which cannot 


reside in the shared library. 


When several groups from the same package are selected, the size of 
the resulting group is not necessarily the sum of the individual 


group sizes. 


Table 2. 


Module 


IHETCV 
IHETEA 
IHETER 
| IHETEV 
IHETPB 
IHETPR 


IHETSA | 
IHETSE | 
IHETSS | 


IHESAP 


IHEOSS | 
IHEOSE | 
IHECKP | 
IHEDSP | 
IHEDUM | 


IHESRT 
IHEERR 
IHECFA 
IHECFB 
IHECNT 


IHESRC 


IHESRD 
IHELSP 
IHESTR 
IHEBEG 
IHECFC 
| ІНЕМ91 
| ТНЕМАТ 
IHEMSI 
IHEMST 
IHEMSW 
IHEOSD 
IHEOSI 
IHEOST 
IHEPTT 
IHEPRT 
IHERES 
IHESIZ 


Housekeeping Package 


Description 


Control Variable 
Event Variable 
ON Field 
COMPLETION 
PRIORITY 
PRIORITY 
Storage Manag.t 
FINISH 
FINISH 
Storage Manag.t 
FINISH 
EXIT 
Checkpoint 
Display 
Dump 
Sort 
Error 
ONLOC 
ONCODE 
ONLINE 
| ) СНАВ 
ONSOURCE) DATA 

) FILE 
ONKEY 
List Processing 
Structure Mapping 
Terminal Error 
Mod 91 interrupts 
Mod 91 errors 
Main 
No Timer 
No TIME 
WAIT I/O Event 
Date 
Delay 
Time 
COPY Tasking 
COPY No-tasking 
Restart 
Length PRV 


MOS OOO OM 


ра XX 


Group Number 


ра ра 04 ра 0X рӯ рс 0$ ж 
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Table 3. Conversion Package 


Group Number 


асо ELE ELT 
X 


Module Description 


IHEDIA F format director 








X 
IHEDIB E to Internal X 
IHEDID B to Internal X X 
IHEDIE Picture to Internal x 
IHEDIL A/B error X 
IHEDIM C to Internal X 
ІНЕ ПОА Internal to F/E X 
ІНЕ DOB Internal to A X 
IHE DOD Internal to B X 
IHE DOE Internal to Picture X 
IHE DOM Internal to C X 
ІНЕ ОМА Conversion director X X 
IHE DNB Arithmetic to Bit X 
IHE DBN Bit to Arithmetic X 
IHE DCN Bit to Character 
IHE DNC Arith to Character 
ІНЕ КСА | Valid Dec. Picture 
ІНЕ КСВ | Valid Sterling Picture 
IHE КСО Valid Char. Picture 
IHEUPA | Address Real Complex X 
IHEUPB | Address Imag. Complex X 
IHEVCA | Arith. attributes X 
IHE VCS | Complex to Internal X 
ІНЕ УҒА | Binary to Decimal X 
IHE VFB Float to Fixed X 
IHE УЕС Float to Float 
IHE VFD Fixed to Float X 
IHE VFE Float to Float 
IHE VKB Decimal to Packed 
ІНЕ УКС | Sterling to Packed 
IHE VKF Packed to Fixed 
IHE VKG | Packed to Sterling 
IHE VPA | Decimal to Binary X X X 
IHE VPB Decimal to F X X X 
IHEVPC | Packed to E X X X 
IHEVPD | Packed to Decimal X X X 
IHE VPE E/F to Packed x X X 
IHE VPF Decimal to Packed X X X 
IHE VPG Fixed to Float 
IHE VPH Bit to Float X 
IHEVSA | Varying Bit. X 
IHEVSB | Varying Bit/Character X 
IHEVSC | Varying Character 
IHEVSD | Varying Bit/Character X 
IHEVSE Character to Picture 
IHE VSF Bit to Picture X 


IHE VOA Float to Fixed 
ІНЕУОВ Decimal to Arithmetic 
IHEVQC Arith to E/F/Char. 
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Table 4, 


Module 


IHEBSA 
IHEBSO 
IHEBSN 
IHEBSC 
IHEBSM 
IHEBSK 
IHEBSD 
IHEBSS 
IHEBSI 
IHEBSF 
IHEBSV 
IHEBST 
IHECSK 
IHECSC 
IHECSM 
IHECSS 
IHECSI 
IHESTG 
IHESTP 
IHECSV 
IHECST 


Table 5 


Module 





IHEJXS 
IHEJXI 
IHE NL1 
IHENL2 
IHESSF 
IHESMF 
IHESSG 
IHESMG 
IHESSH 
IHESMH 
IHEPSF 
IHEPDF 
IHEPSS 
IHEPDS 
IHEPSL 
IHEPDL 
IHEYGF 
IHEYGS 
IHEYGL 
IHESSX 
IHESMX 
IHEPSX 


IHEPDX | 


IHEPSW 
IHEPDW 
IHEPSZ 
IHEPDZ 
IHEYGX 
IHEYGW 
IHEYGZ 


o 





STRING Function Package 


Description 


And 

Or 

Not 

Compare 

Assign 

Concat, REPEAT 
Compare 
Compare, SUBSTR 
INDEX 

BOOL 

VERIFY 
TRANSLATE 
REPEAT 

Compare 


х м к х о м х Ж х H 


Assign, Fill HIGH/LOW 


SUBSTR 
INDEX 
STRING BIF 
STRING PV 
VERIFY 
TRANSLATE 


ARRAY Function Package 





Group Number 


Description 17 
Indexer X 
Indexer 

ALL ANY X 
ALL ANY 

SUM X: 
SUM 

SUM X 
SUM 

SUM X 
SUM 

PROD X 
PROD 

PROD X 
PROD 

PROD X 
PROD 

POLY X 
POLY X 
POLY X 


SUM 

SUM 

PROD 
PROD 
PROD 
PROD 
PROD 
PROD 
POLY 
POLY 
POLY 


ШЕЛЕЛ 





ра ра ра р 


ж 


х 


ра P4 x 04 


— 
л 





Table 6. 


IHE XIB 
IHE XID 
THE APD 
ІНЕ XIS 
IHE XXS 
IHEXIL 
ІНЕ XXL 
ІНЕ MZU 
IHE XIU 
ІНЕ MZV 
IHE XIV 
ІНЕ МОИ 
IHEDZW 
IHE XIW 
IHE XXW 
IHE MZZ 
IHEDZZ 
IHE XIZ 
IHE XXZ 
THE MXB 
IHE MXD 
IHE ADD 
ІНЕ MXS 
ІНЕ MXL 
IHE MPU 
IHE DVU 
IHE ADV 
IHE MPV 
IHE DVV 
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MIN 
MIN 


MIN 
MAX MIN 
MULTIPLY 
DIVIDE 
ADD 
MULTIPLY 
DIVIDE 


Arithmetic Function Package 


Group Number 


“юм 
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Table 7. Mathematical Function Package 


Group Number 


Module Description 


е 
N 
I 


ІНЕ505 5ОВТ 

ІНЕЕХ5 EXP 

IHE LNS LOG 

ІНЕ SNS SIN COS 
ІНЕ TNS TAN 

IHEATS ATAN 

IHE SHS SINH COSH 
IHE THS TANH 

IHE HTS ATANH 

IHE EFS ERF 

IHE SQL SORT 

IHE EXL EXP 

IHE LNL LOG 

IHE SNL SIN COS 
ІНЕ TNL TAN 

IHE ATL ATAN 

IHE SHL SINH COSH 
IHETHL TANH 

IHE HTL ATANH 
IHEEFL ERF 

IHE SQW SORT 
IHEEXW EXP 

IHE LNW LOG 

IHESNW SIN COS SINH COSH 
IHE TNW TAN  TANH 
IHEATW ATAN  ATANH 
ІНЕ507 SORT 

IHEEXZ EXP 

IHELNZ LOG 

IHESNZ SIN COS SINH COSH 
IHETNZ TAN TANH 
IHEATZ ATAN  ATANH 
IHEABU ABS 

IHEABV ABS 

IHEABW ABS 

IHEABZ ABS 


96 04 ра ра ра рс ре MO рс | N 
ра ра 04 06 06 рс ра рӯ рӯ ра 


X 
X 
X 
X 
X 
X 
X 
X 
X 
X 


ос ра OS Ра ра DX 54 ра 5X рс 


04 06 реж DO XC 


© рс ра ра ра ра 
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Table 8. 


Module 


IHEDDI 
IHEDDO 
IHEDDJ 
IHEDDP 
IHEDDT 
IHE IBT 
IHEIOA 
IHEIOB 
IHEIOC 
IHEIOD 
IHEIOF 
IHEIOP 
IHEIOX 
IHELDI 
IHELDO 
IHETAB 


STREAM I/O Package 


Description 


Read Data 
Write/Convert Data 
Array address 
Array subscript 
Write Data Tasking 
Tasking PUT 

GET 

Non-tasking PUT 
GET string 
Datafield handler 
Logical records 
Page/Skip/Line 
Skip/Column 

Read List 
Write/Convert List 
Page/Line default 


Table 9. RECORD I/O Package 


Module 


IHEION 


IHEOSW 
IHEOCL 
IHEINT 
IHETSW 
IHEOCT 


Description 


I/O transmitter route 


Wait I/O EVENT 
OPEN/CLOSE 


I/O transmitter route 


Wait I/O EVENT 
OPEN/CLOSE 
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4. USABILITY IMPROVEMENTS 


Certain improvements have been made 
to the compiler that increase its 
convenience to the user. This section 
describes these improvements, which 
comprise the following: 


ә Two additions (NCP and TRKOFL) to the 
option list of the ENVIRONMENT attribute 


e Interception of Operating System ABEND 
occurrences by means of the STAE feature 


ве Improvements to the multitasking 
implementation 


* Implementation of additions to the 
list of acceptable abbreviations of 
PL/I keywords 


NEW ENVIRONMENT OPTIONS 


In addition to the teleprocessing 
format options, G and R, described in 
Section 1, there are two further additions 
to the option list of the ENVIRONMENT 
attribute, NCP and TRKOFL. Each can 
alternatively be specified in the DD 
Statement. 


Track Overflow (TRKOFL) 


The track overflow option specifies 
that records transmitted to a direct 
access storage device can be written on 
overflow tracks if necessary. It is 
Specified as follows: 


TRKOFL 


This option is equivalent to the 
specification of "T" in the RECFM 
subparameter of the DCB parameter of the 
DD statement. 


Asynchronous Operations Limit (NCP) 


The asyncnronous operations limit 
specifies the number of incomplete 
input/output operations with the EVENT 
option that are allowed to exist for the 
file at one time. The specification is 
as follows: 


NCP (decimal-integer-constant) 
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The decimal integer constant must have 

a value in the range 1 through 99; 
otherwise, 1 is assumed and an error 
message is issued. This option is 
equivalent to the NCP subparameter of the 
DCB parameter of the DD statement. 


IMPROVED ABNORMAL TERMINATION (STAE FEATURE) 


— 


With previous versions of the compiler, 
an abnormal termination of a PL/I program 
resulted in an Operating System ABEND; 
this meant that the PL/I program was not 
cleanly terminated. Тһе fifth version 
of the compiler will use the STAE feature 
to intercept abnormal termination and 
provide a cleaner program termination. 


MULTITASKING IMPROVEMENTS 


A problem encountered with multitasking 
as implemented by the fourth version of 
the compiler was preventing two or more 
tasks from concurrently executing code 
that modified control blocks and chains 
(i.e., "soft" code). The fifth version 
prevents this loss of control by executing 
"sOft" code within the master control 
task. This improvement is particularly 
important to Multiprocessing System users. 


This change is transparent to the PL/I 
programmer, but will require that object 
modules for PL/I multitasking programs 
compiled by the fourth version be link- 
edited with the fifth version library. 


ADDITIONS TO THE LIST OF ACCEPTABLE 
ABBREVIATIONS 


The following abbreviations for file 
attribute keywords will be accepted by 
the fifth version: 


Keyword Abbreviation 
BUFFERED BUF 
EXCLUSIVE EXCL 
SEQUENTIAL SEOL 
UNBUFFERED UNBUF 


APPENDIX A. COMPATIBILITY WITH PREVIOUS VERSIONS 


Owing to the changes and improvements 
in PL/I and the five versions of the 
compiler and library, certain unavoidable 
incompatibilities have arisen between 
library modules of the different versions 
and releases. These changes are detailed 
in the PL/I(F) Programmers Guide; however, 
two general rules can be stated: 


1. Compiled code from any release of the 
compiler must always be executed using 
a library of the same or a later 
release. 


2. Library modules of different releases 
can be mixed only in the following 
circumstances: 


a. All link-edited library modules 
must belong to the same release. 


b. All dynamically linked or loaded 
library modules must belong to 
the same release,and must be of 
at least as late a release as 
the link-edited library modules. 


NEW LIBRARY MODULES AND HALFWORD 
BINARY ADOPTION 


Тһе implementation of teleprocessing 
support, improved mathematical built-in 
functions, multitasking improvements, and 
halfword binary has made a considerable 
impact on the PL/I library. The changes 
in the fifth version fall into two major 
groups -- those due to halfword binary 
adoption, and those due to the other 
factors. 


EFFECT OF NEW LIBRARY MODULES AND 
RECOMMENDED ACTION 


Most of the changes to the PL/I library 
have been made so as to be transparent 
to the user. Action need be taken only 
in the following two cases: 


1. Programs link-edited with first or 
second version libraries will not run 
with fifth version dynamic library 
modules. Any users of programs link- 
edited with first or second version 
libraries will need to link-edit their 
program object modules with the fifth 
version library before attempting to 


execute the programs in a fifth version 
system. 


2. Users of fourth version multitasking 


features will need to link-edit their 
program object modules with the fifth 
version library before attempting to 
execute the programs in a fifth version 
system. 


EFFECT OF HALFWORD BINARY AND 
RECOMMENDED ACTION 


In the first through fourth versions 


of the PL/I (F) Compiler, all fixed binary 


variables occupy а fullword (4 bytes). 

In the fifth version, fixed binary 
variables of precision less than 16 occupy 
a halfword (2 bytes). This change will 
affect users who have explicitly declared 
fixed binary variables with precision of 
less than 16 or who have allowed variables 
to acquire fixed binary default precision. 


The change to halfword binary can only 
impact users of the following features: 


1. External fixed binary variables 
2. Fixed binary arguments and parameters 


3. Variables defined on external fixed 
binary variables 


4. Fixed binary variables used in record- 
Oriented transmission 


5. Based fixed binary variables 


To aid the users of the above features 


to determine if program changes are 


necessary, the various combinations of 
cases are given below: 


1. Previous version load module (link 
edited program and library) with fifth 
version dynamic library: 

Changes are not required. 


2. Previous version program object 
module(s) with fifth version library: 


Changes are not required. 
3. Previous version program object 


module(s) with fifth version program 
object modules(s) and library: 
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Errors will occur if the fifth version 
modules communicate with previous 
version modules by use of the above 
features. 


The problems can be avoided if the 
user either: 


a. Recompiles the previous version 
procedures, unless case 4 ог 5 
applies. 


b. Declares all halfword binary 
variables in the features above 
with precision greater than 15 
before compiling the fifth version 
procedures. 


ц. Previous version source program(s) 
compiled with fifth version: 


Changes are not required unless the 

user has violated any of the existing 
PL/I language rules applying to 
argument/parameter matching, use of 
pointers, base matching for defined 
items, or record descriptions containing 
halfword binary itmes. 


5. Fifth version program (load module) 
with previous version data sets: 


Errors will occur if the data set 
records contain halfword binary items. 


The problem can be avoided by declaring 
all the halfword binary items in the 
structures used for input from the 
previous version data sets with 
precision greater than 15, before 
compiling the procedures with the fifth 
version. 


6. Previous version program with fifth 
version data sets: 


Errors will occur if the data set 
records contain halfword binary items. 


The problem can be avoided if the user 
either: 


a. Recompiles the program with the 
fifth version. 


b.  Ensures that all fixed binary 
variables used in RECORD output 
Structures are declared with 
precision greater than 15. 


MANDATORY RETURNS KEYWORD ON PROCEDURE, 
ENTRY, AND %PROCEDURE STATEMENTS 


The RETURNS keyword is now mandatory 
in PROCEDURE, XPROCEDURE, and ENTRY 
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Statements of function procedures when 
the function value attributes are 
explicitly specified. If omitted it will 
be diagnosed as an error and will be 
assumed to be present. In the first release 
of the fifth version the error will be 

of severity level "Warning"; in subsequent 
maintenance releases, the severity level 
of the diagnostic will be raised to 
"Error." 


Example: 
Before fifth version: 
P:PROC(A) FIXED BINARY; 
Required for fifth version: 


P:PROC(A) RETURNS(FIXED BINARY); 


REMOVAL OF ABNORMAL, NORMAL, USES, 
AND SETS ATTRIBUTES 


The attributes ABNORMAL, NORMAL, USES, 
and SETS have been removed from the PL/I 
Language. Any appearance of these 
attributes in programs is now invalid and 
will be diagnosed as an error and ignored. 
Prior to the fifth version they were 
recognized but not utilized. 


The severity level of the diagnostic 
message in the first release of the fifth 
version of the compiler will be "Warning." 
In subsequent maintenance releases of the 
fifth version the severity level will be 
raised to "Error." 


CORRECTION TO. THE IMPLEMENTATION OF 
INDEX BUILT-IN FUNCTION 


The INDEX built-in function is now 
correctly implemented as described in the 
PL/I Reference Manual. The only 
incompatibility that can arise is when 
the function has been incorrectly used 
in compilations prior to fifth version. 
The case in which error would occur is 
if one or both of the arguments were fixed 
binary variables or expressions. Prior 
to the fifth version these would have 
been converted directly to CHARACTER; in 
the fifth version, they are now correctly 
converted to BIT and then, if necessary, 
to CHARACTER. 


PUBLICATIONS 


Details of all the fifth version 
features described in this planning guide 
will be provided in revisions of the 
following publications, available with 
the fifth version: 


IBM System/360 PL/I Reference Manual, 
Form C28-8201 


ІВМ System/360 Operating System: PL/I (Е) 
Programmer's Guide, Form С28-6594 


ІВМ System/360 Operating System: PL/I 


Subroutine Library Computational 
Subroutines , Form C28-6590 


SUPPORTING PROGRAMS FOR TELEPROCESSING 


The following are required for the 
execution of a program that uses TRANSIENT 
files: 


1. A generated operating system that 
includes the QTAM modules. 


2. A QTAM message control program to 
direct the incoming and outgoing 
messages to and from main storage 
message queues via a disk data set. 
Simple QTAM macro instructions are 
available for use in generating this 
program. A QTAM message processing 
program to terminate the ОТАМ message 
control program is also required. 


The following publications contain 
relevant information: 


ІВМ System/360 Operating System: ОТАМ 


Message Processing Services, Form C30- 
2003 


IBM System/360 Operating System: ОТАМ 
Message Control Program, Form C30-2005 


APPENDIX B: REQUIREMENTS 


MACHINE REQUIREMENTS 


COMPILATION 


The minimum requirement for the F 
compiler is a 64K System/360 machine. 
The compiler itself requires at least 44K 
bytes of main storage. The machine must 
include the floating-point and decimal 
instruction sets; it must also include 
the timer feature if the time taken for 
compilation is to be listed. | 


Direct-access storage space is required 
in the systems residence device, and the 
compiler data sets require devices as 
listed in Table 10. 


EXECUTION 


The main storage requirements of the 
object program are a function of the PL/I 
facilities used. 


The machine on which the object program 
is executed must include the floating 
point and decimal instruction sets; it 
must also include the timer feature if 
the TIME built-in function or the DELAY 
statement is to be used. 


OPERATING SYSTEM REQUIREMENTS 


COMPILATION 


The compiler is designed to operate 
under System/360 Operating System with 
a minimal control program. Use of 
input/output access methods is restricted 
to BSAM and QSAM. Option 6A (Time) is 
required if the time taken for compilation 
is to be listed. 


EXECUTION 


The object program must be executed 
under System/360 Operating System. 
Advantage can be taken of the shared 
library feature only with Option 4 (МУТ); 
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however, a program compiled and link 
edited for execution with a shared library 
can still be executed under PCP or MFT. 


All object programs require the presence 
of the BSAM and О5АМ modules in the 
generated operating system; a program 
that uses INDEXED or REGIONAL data set 
organization requires the ISAM or BDAM 
modules, respectively. 











Option 6A (Time) is required if the 
TIME built-in function or the DELAY 
statement is to be used. 


Users who wish to reassemble modules 
of the PL/I Subroutine Library require 
an assembler program with pseudo-register 
support (for example, the System/360 F- 
Level Assembler). 








Permissible devices 





DASD, magnetic tape, 


reader, paper-tape reader 


DASD, magnetic tape, 


DASD, magnetic tape 


DASD, magnetic tape, 


DASD, magnetic tape 


DASD, magnetic tape 


Table 10. Compiler Data Sets 
Function 
SYSIN System input 
SYSPRINT System printer 
printer 
SYSLIN System linkage- 
editor input 
SYSPUNCH System card punch 
card punch 
SYSUT1 Spill DASD 
SYSUT3 Preprocessor 
or translated 
48-character 
set output 
SYSLIB Preprocessor 
AINCLUDE 
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When required 


Always 
Always 


When LOAD option 
Specified 


When DECK or MACDECK 
option specified 


When space required 
by compiler exceeds 
main storage 
allocated for 
compilation 


When preprocessor 
or 48-character 
set used 


Only when XINCLUDE 
is used 


APPENDIX C: 


The following is a complete list of language changes implemented 
by the fifth version of the F Compiler, together with the topics in 
this publication that give details of the changes. 


ADDITIONS 


Feature 

ORDER option 

PENDING condition 

REORDER option 

TRANSIENT attribute 
TRANSLATE built-in function 


VERIFY built-in function 


CHANGES 


Changed Feature 
%PROCEDURE statement 


ABNORMAL attribute 
BASED attribute 
BEGIN statement 


BUFFERED attribute 


ENTRY attribute 
ENTRY statement 


ENVIRONMENT attribute 


EXCLUSIVE attribute 
FIXED BINARY variables 


INDEX built-in function 


KEYED attribute 
LOCATE statement 


NORMAL attribute 


Associated Topic 


Optimization extensions 
Teleprocessing support 
Optimization extensions 
Teleprocessing support 
String-handling additions 


String-handling additions 


Associated Topic 
Mandatory RETURNS keyword 


Removal from language 
(See REFER option, below) 
Optimization extensions 


Teleprocessing support 
Additions to list of abbreviations 


Removal of USES and SETS attributes 
Mandatory RETURNS keyword 


Teleprocessing support 
Usability improvements 


Additions to list of abbreviations 
Adoption of halfword binary facilities 


Correction to implementation (see 
Appendix A) 


Teleprocessing support 
Teleprocessing support 


Removal from language 


Additions and Changes to Language Implemented 


ADDITIONS AND CHANGES TO LANGUAGE IMPLEMENTED 
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Changed Feature 


ONKEY built-in function 


PROCEDURE statement 


READ statement 

REFER option 
SEQUENTIAL attribute 
SETS attribute 
UNBUFFERED attribute 
USES attribute 


WRITE Statement 
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Associated Topic 


Teleprocessing support (see PENDING 
condition) 


Optimization extensions; 

Mandatory RETURNS keyword 
Teleprocessing support 

Adoption of halfword binary facilities 
Additions to list of abbreviations 
Removal from language 

Additions to list of abbreviations 
Removal from language 


Teleprocessing support 


%PROCEDURE statement 
RETURNS option 28 


ABNORMAL attribute 24 
Abnormal termination 22 
Abbreviations 
additions to list 22 
Array expressions 13 
Assignments 
improved code for 14 
Asynchronous operations limit (NCP) 22 
Attributes 
ABNORMAL 24 
NORMAL 24 
SETS 24 
TRANSIENT 5 
USES 24 
Binary halfword facilities 12,15 
compatibility 12,23 
effect on data interchange 12 
effect on storage 12 
REFER option 12 
Built-in functions 
INDEX 24 
mathematical 18 
TRANSLATE 9 
VERIFY 10 


Compatibility with previous versions 23 
halfword binary facilities 23 
INDEX built-in function 24 
new library modules 23 
removal of ABNORMAL, NORMAL, USES 
and SETS attributes 24 
RETURNS option 24 
Compilation 
requirements for 25 


ENTRY statement 
RETURNS option 24 
ENVIRONMENT attribute 
new options 6,22 
G 6 
NCP 22 
R 6 
TRKOFL 22 
Execution 
requirements for 25 


Functional additions 5 
adoption of halfword binary 
facilities 12 
compatibility 12 
effect on data interchange 12 
effect on storage 12 
REFER option 12 
optimization extensions 10 
language additions 11 
string-handling additions 9 
teleprocessing support 5 
language additions 5 


new ENVIRONMENT options 6 
programming example 8 
special requirements 7 


G option 6 


Halfword binary facilities 
compatibility 12,23 
effect on data interchange 12 
effect on storage 12 
REFER option 12 


12,15 


INDEX built-in function 
correction to implementation 24 
In-line conversions 14 


Language additions 
optimization 11 
ORDER option 11 
PENDING condition 6 
REORDER option 11 
teleprocessing support 5 
TRANSIENT attribute 5 
TRANSLATE built-in function 9 
VERIFY built-in function 10 
Library modules 16-21,23 
Loop and subscript optimization 13 


Machine requirements 25 
Message control program 7 
Multitasking improvements 22 


NCP 22 
NORMAL attribute 24 


ON-condition 
PENDING 6 
OPT=n compiler option 13 
Optimization 13 
OPT=n compiler option 13 
Optimization extensions 10 
ORDER option 11 
REORDER option 11 
ORDER option 11 


PENDING condition 6 

Performance improvements 13 
array expressions 13 
improved code for assignments 14 
in-line conversions 14 
list of improvements 13 
loop and subscript optimization 13 
loop control mechanism 13 
loop control variables 13 
mathematical built-in functions 14 
subscript lists 14 
use of registers 14 

PROCEDURE statement 
RETURNS option 24 

Publications required 25 


QTAM message control program 7,25 


Index 


INDEX 


29 


R option 6 
Reactivation of teleprocessing system 
REFER option 
relaxation of restriction 12 
Registers 
improved use of 14 
REORDER option 11 
Requirements 25 
machine requirements 25 
Operating System requirements 25 
teleprocessing support 25 
RETURNS option 24 


SETS attribute 24 
Shared library 15 
STAE feature 22 
Storage use 
halfword binary facilities 15 
improvements 15 
Shared library 15 
String-handling additions 9 
Subscript lists 14 
System requirements 25 
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7 


Teleprocessing support 5 
new ENVIRONMENT options 6 
PENDING condition 6 
programming example 8 
QTAM message control program 7,25 
reactivating the system 7 
Special requirements 7,25 
terminating the system 7 
TRANSIENT attribute 5 
Termination of teleprocessing system 
Transient attribute 5 
TRANSLATE built-in function 9 
TRKOFL (Track overflow) 22 


Usability improvements 22 
abbreviations 22 
improved abnormal termination 22 
multitasking 22 
new ENVIRONMENT options 22 
NCP 22 
TRKOFL 22 
USES attribute 28 


VERIFY built-in functicn 10 
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